sub msxsetascii8page(tpag as ubyte,tarea as ubyte):
  poke $6000+($800*(tarea mod 4)),(tpag band 255)
  end sub

